home *** CD-ROM | disk | FTP | other *** search
- object scope_network: Tscope_network
- Left = 21
- Top = 124
- HelpType = htKeyword
- HelpKeyword = 'Network'
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'NTC Network control'
- ClientHeight = 243
- ClientWidth = 258
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- HelpFile = 'ntc.hlp'
- OldCreateOrder = False
- OnCloseQuery = form_close_query
- OnCreate = formcreate
- OnPaint = check_activate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object network_panel: TPanel
- Left = 0
- Top = 0
- Width = 258
- Height = 243
- Align = alClient
- TabOrder = 0
- object ip_address_label: TLabel
- Left = 8
- Top = 8
- Width = 89
- Height = 13
- Caption = 'Choose IP address'
- end
- object ip_combo: TComboBox
- Left = 104
- Top = 4
- Width = 153
- Height = 21
- ItemHeight = 13
- TabOrder = 0
- OnChange = ip_comboChange
- end
- object refresh_button: TBitBtn
- Left = 0
- Top = 28
- Width = 43
- Height = 21
- Caption = 'Refresh'
- TabOrder = 1
- OnClick = refresh_buttonClick
- end
- object edit_port: TEdit
- Left = 56
- Top = 28
- Width = 81
- Height = 21
- TabOrder = 2
- Text = '8383'
- OnChange = edit_portChange
- end
- object enable_network_check: TCheckBox
- Left = 152
- Top = 32
- Width = 105
- Height = 17
- Hint = 'Disable network to allow local control of scope'
- Caption = 'Enable network'
- TabOrder = 3
- OnClick = enable_network_checkClick
- end
- object status_log: TMemo
- Left = 0
- Top = 53
- Width = 257
- Height = 156
- ScrollBars = ssVertical
- TabOrder = 4
- end
- object clear_log_button: TBitBtn
- Left = 16
- Top = 213
- Width = 57
- Height = 25
- Hint = 'Clear list'
- Caption = 'Clear Log'
- TabOrder = 5
- OnClick = clear_log_buttonClick
- end
- object messages_button: TBitBtn
- Left = 72
- Top = 213
- Width = 57
- Height = 25
- Hint = 'Show Messages'
- Caption = 'Logging'
- TabOrder = 6
- OnClick = messages_buttonClick
- end
- object io_messages_button: TBitBtn
- Left = 128
- Top = 213
- Width = 57
- Height = 25
- Hint = 'Show IO messages'
- Caption = 'IO'
- TabOrder = 7
- OnClick = io_messages_buttonClick
- end
- object disk_button: TBitBtn
- Left = 184
- Top = 213
- Width = 57
- Height = 25
- Hint = 'Write log to disk'
- Caption = 'Disk'
- TabOrder = 8
- OnClick = disk_buttonClick
- end
- end
- object scope_server: TIdTCPServer
- Bindings = <>
- CommandHandlers = <>
- DefaultPort = 0
- Greeting.NumericCode = 0
- MaxConnectionReply.NumericCode = 0
- OnExecute = scope_serverExecute
- ReplyExceptionCode = 0
- ReplyTexts = <>
- ReplyUnknownCommand.NumericCode = 0
- Left = 192
- Top = 128
- end
- end
-